Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/DATABASE.DIR/00098_Script_CLEARING HANDLERS

Text File | 1996-03-28 | 2KB | 57 lines

-- --------------------------------------------------------
-- Handler clearDatabase resets the database from the
-- previous topic.

on clearDatabase
  global textSprite, clearedFlag, printbutton, searchButton

  if not(clearedFlag) then
    set the editableText of sprite textSprite = FALSE
    set the castNum of sprite textSprite = the number of cast "Empty Text"

    clearTitle
    unhiliteClickedTopic
    removeMoreButtons

    resetCurrentPage
    resetCurrentPicture
    resetCurrentCaption

    removeTopicPicture

    disableTopicButtons
    updateStage

    setClearedFlag(TRUE)
  end if
end

-- --------------------------------------------------------
-- Handler setClearedFlag sets the variable clearedFlag
-- which indicates whether or not the text has already
-- been cleared.

on setClearedFlag val
  global clearedFlag

  set clearedFlag = val
end

-- --------------------------------------------------------
-- Handler clearSearchTopicField clears the field "searchTopic"
-- which contains the user input word to be searched for.

on clearSearchTopicField
  put " " into field "searchTopic"
  setFieldFont("searchTopic")
  set the textSize of field "searchTopic" = 14
  set the textHeight of field "searchTopic" = 16
  put "" into field "searchTopic"
end

-- ---------------------------------------------------------------
-- Handler clearTitle clears the title field.

on clearTitle
  put " " into cast "Topic Title"
end